
.
A=-24576;B=-23336;for N=Ato B;%(N)=KP;next N;%(20050)=B;:return ;goto 100
{1}null .{-104}{-128}{-128}{25}{-104}{-128}{25}{-99}{-128}{25}{-91}{-128}{25}{-89}{-128}{-91}{-128}{-128}{-99}{-128}{-128}{-78}{-128}{-128}{-91}{-128}{-128}{-68}{-128}{-128}{-78}{-128}{-128}{-53}{-128}{-128}{-68}{-128}{-128}{-78}{-128}{-128}{-86}{-128}{-128}{-99}{-128}{-128}{-104}{-128}{-128}{-106}{25}{-128}{-100}{25}{-128}{-91}{25}{-128}{-89}{25}{-128}{-91}{-128}{-128}{-100}{-128}{-128}{-84}{-128}{-128}{-91}{-128}{-128}{-71}{-128}{-128}{-84}{-128}{-128}{-53}{-128}{-128}{-71}{-128}{-128}{-84}{-128}{-128}{-91}{-128}{-128}{-100}{-128}{-128}{-106}{-128}{-128}{-109}{25}{-128}{-100}{25}{-128}{-95}{25}{-128}{-91}{25}{-128}{-95}{-128}{-128}{-100}{-128}{-128}{-89}{-128}{-128}{-95}{-128}{-128}{-71}{-128}{-128}{-89}{-128}{-128}{-61}{-128}{-128}{-71}{-128}{-128}{-89}{-128}{-128}{-95}{-128}{-128}{-100}{-128}{-128}{-109}{-128}{-128}{-110}{25}{-128}{-104}{25}{-128}{-99}{25}{-128}{-95}{25}{-128}{-99}{-128}{-128}{-104}{-128}{-128}{-91}{-128}{-128}{-99}{-128}{-128}{-78}{-128}{-128}{-91}{-128}{-128}{-68}{-128}{-128}{-78}{-128}{-128}{-53}{-128}{-128}{-84}{-128}{-128}{-48}{-128}{-128}{-78}{-128}{-128}{25}{-128}{-38}{25}{-95}{-38}{25}{-75}{-38}{25}{-68}{-38}{-75}{-128}{-128}{-84}{-128}{-128}{-61}{-128}{-128}{-75}{-128}{-128}{-33}{-128}!{-33}{-48}!{-33}{-61}!{-33}{-71}!{-68}{-128}{-128}{-61}{-128}{-128}{-95}{-128}{-128}{-68}{-128}{-128}{-71}{-38}5{-84}{-38}5{-95}{-38}5{-93}{-38}5{-95}{-128}{-128}{-100}{-128}{-128}{-89}{-128}{-128}{-95}{-128}{-128}{-81}{-128}{-128}{-89}{-128}{-128}{-95}{-128}{-128}{-100}{-128}{-128}{-99}{-128}{-128}{-95}{-128}{-128}{-109}{-128}{-128}{-95}{-128}{-128}5{-128}{-128}5{-95}{-128}{-91}{-38}{-128}{-89}{-38}{-128}{-91}{-38}{-128}{-99}{-38}{-128}{-102}{-27}{-128}{-104}{-27}{-128}{-106}{-21}{-128}{-95}{-21}{-128}{-91}{-75}{-128}{-89}{-75}{-128}{-91}{-75}{-128}{-106}{-75}{-128}{-91}{-68}{-128}{-104}{-68}{-128}{-91}{-61}{-128}{-104}{-61}{-128}{-102}{9}{-128}{-99}{9}{-128}{-102}{9}{-128}{-106}{9}{-128}{-109}{25}{-128}{-110}{25}{-128}{-112}!{-128}{-104}!{-128}{-102}{-48}{-128}{-99}{-48}{-128}{-102}{-48}{-128}{-112}{-48}{-128}{-102}{-38}{-128}{-110}{-38}{-128}{-102}{-27}{-128}{-110}{-27}{-128}{-109}{-78}{-128}{-106}{-78}{-128}{-104}{-89}{-128}{-109}{-89}{-128}{-102}{-95}{-128}{-109}{-95}{-128}{-99}{-91}{-128}{-109}{-91}{-128}{-99}{-53}{-128}{-95}{-53}{-128}{-91}{-68}{-128}{-99}{-68}{-128}{-89}{-78}{-128}{-99}{-78}{-128}{-84}{-21}{-128}{-109}{-21}{-128}{-106}{-75}{-128}{-104}{-75}{-128}{-102}{-84}{-128}{-106}{-84}{-128}{-99}{-91}{-128}{-106}{-91}{-128}{-95}{-89}{-128}{-106}{-89}{-128}{-95}{-48}{-128}{-91}{-48}{-128}{-89}{-61}{-128}{-95}{-61}{-128}{-84}{-75}{-128}{-95}{-75}{-128}{-78}{-8}{-128}{-106}{-8}{-128}{-104}{-68}{-128}{-102}{-68}{-128}{-99}{-78}{-128}{-104}{-78}{-128}{-95}{-89}{-128}{-104}{-89}{-128}{-91}{-84}{-128}{-104}{-84}{-128}{-91}{-38}{-128}{-89}{-38}{-128}{-84}{-53}{-128}{-91}{-53}{-128}{-78}{-68}{-128}{-91}{-68}{-128}{-75}{9}{-128}{-75}{-61}{-128}{-75}{-53}{-128}{-75}{-48}{-128}{-38}{-128}{-128}{-27}{-128}{-128}{-61}{-21}{-128}{-61}{-8}{-128}{-78}{9}{-128}{-78}{-48}{-128}{-84}{-38}{-128}{-89}{-27}{-128}{-91}{-21}{-128}{-91}{-38}{-128}{-89}{9}{-128}{-84}{-21}{-128}{-89}{9}{-128}{-78}{9}{-128}{-75}{-128}{-128}{-68}{-128}{-128}{-61}{-128}{-128}{-53}{-61}{-128}{-78}{-43}{-128}{-84}{-38}{-128}{-89}{-27}{-128}{-78}{-21}{-128}{-93}{-8}{-128}{-95}{9}{-128}{-99}{15}{-128}{-78}{-38}{-128}{-95}5{-128}{-93}{-27}{-128}{-95}{9}{-128}{-89}{9}{-128}{-84}{-128}{-128}{-78}{-128}{-128}{-75}{-128}{-128}{-68}{-128}{-128}{-84}{-61}{-128}{-84}{-53}{-128}{-95}{-48}{-128}{-95}{-61}{-128}{-99}{-78}{-128}{-102}{-75}{-128}{-104}{-43}{-128}{-104}{-68}{-128}{-102}{-61}{-128}{-99}{-57}{-128}{-102}{-38}{-128}{-102}{-53}{-128}{-104}{-65}{-128}{-106}{-61}{-128}{-108}{-27}{-128}{-108}{-61}{-128}{-106}{-53}{-128}{-104}{-43}{-128}{-106}{-21}{-128}{-106}{-53}{-128}{-108}{-43}{-128}{-110}{-38}{-128}{-112}{-27}{-128}{-112}{-21}{-128}{-110}{-8}{-128}{-108}{9}{-128}{-110}{-75}{-128}{-106}{-75}{-128}{-102}{-84}{-128}{-95}{-84}{-128}{-91}{-61}{-128}{-84}{-61}{-128}{-95}{-53}{-128}{-102}{-53}{-128}{-104}{-48}{-128}{-95}{-48}{-128}{-89}{-53}{-128}{-78}{-53}{-128}{-61}{-128}{-128}{-61}{-84}{-128}{9}{-91}{-128}{9}{-102}{-128}{-104}{-128}{-27}{-104}{-91}{-27}{-89}{-61}{-128}{-89}{-100}{-48}{-99}{-128}{-53}{-99}{-89}{-53}{-91}{-68}{-128}{-91}{-99}{-48}{-75}{-128}{-38}{-75}{-99}{-38}{-95}{-53}{-128}{-95}{-53}{-78}{-84}{-128}{-21}{-84}{-89}{-21}{-91}{-128}{-38}{-91}{-84}{-38}{-89}{-128}{-27}{-89}{-75}{-27}{-78}{-43}{-128}{-57}{-43}{-8}{-61}{-43}{9}{-78}{-43}{9}{-53}{9}{-38}{-75}{9}{-38}{-78}N{-48}{-78}N{-48}{-78}N{-48}{-78}N{-48}{-78}N{-48}{-78}N{-48}{-128}{-128}{-128}78901234567890123456789012345678901234567
a null clear ;BC=rnd ((3)-1)+rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
goto null T=15;E=-23709;NT=0;CY=5;print "         ALLEMANDE";print ;print " BY JOHANN SEBASTIAN BACH";F=133;A=-24574
{120}null &(16)=49;&(21)=10;&(22)=136;for B=132to F;for C=Ato E-2step 3
{-126}null &(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127;for D=1to T;next D;next C
{-125}null goto B
{-124}null A=-24574;E=-23709;next B
{-123}null &(17)=0;&(18)=0;&(19)=0;&(20)=0;clear ;:input 
null {-1}null null (